home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / loadfont.proc < prev    next >
Text File  |  2007-02-28  |  563b  |  24 lines
  1. 9000 PROC LOADFONT(NAME$) 
  2. 9010  IF PEEK(850)<>169 THEN
  3. 9020   CHECKSUM:=0
  4. 9030   FOR I:=850 TO 881 DO
  5. 9040    READ NUM
  6. 9050    POKE I,NUM
  7. 9060    CHECKSUM:+NUM
  8. 9070   ENDFOR I
  9. 9080   IF CHECKSUM<>3972 THEN
  10. 9090    PRINT "DATA ERROR!"
  11. 9100    STOP 
  12. 9110   ENDIF 
  13. 9120  ENDIF 
  14. 9130  DATA 169,8,170,160,0,32,186,255
  15. 9140  DATA 169,16,162,60,160,3,32,189
  16. 9150  DATA 255,169,0,162,0,160,200,32
  17. 9160  DATA 213,255,169,8,32,195,255,96
  18. 9170  FOR I:=1 TO LEN(NAME$) DO
  19. 9180   POKE 827+I,ORD(NAME$(I))
  20. 9190  ENDFOR I
  21. 9200  POKE 859,I-1
  22. 9210  SYS 850
  23. 9220 ENDPROC LOADFONT
  24.